(display-time-string-forms): Add face property to mail string.

diff --git a/lisp/time.el b/lisp/time.el
index 09e5e6b76bd77284dcd80414a15dba31cadb476f..c0b6c6ab6bd5d6cf266f3f6abe0f25da69ac3602 100644 (file)
--- a/lisp/time.el
+++ b/lisp/time.el
@@ -171,6 +171,7 @@ depend on `display-time-day-and-date' and `display-time-24hr-format'."
                             ,@(list :background (face-attribute
                                                  display-time-mail-face
                                                  :background)))
+                 'face display-time-mail-face
                 'help-echo "You have new mail; mouse-2: Read mail"
                 'local-map (make-mode-line-mouse-map 'mouse-2
                                                      read-mail-command)))